#! /usr/bin/env perl
# author: maxiao
# date: 2023-03-09 15:48
# description: 测试Time模块

use v5.20;

use Time::Moment;

my $dt = Time::Moment->now;
printf '%4d%02d%02d', $dt->year, $dt->month, $dt->day_of_month;
print "\n";
